home *** CD-ROM | disk | FTP | other *** search
/ ASP Advantage 1994 2nd Q2 / The Association of Shareware Professionals - The Official ASP Advantage (2nd Quarter)(1994).bin / files / progming / bt / scr.bas < prev    next >
Encoding:
BASIC Source File  |  1988-01-17  |  623 b   |  30 lines
  1. 10 ' first keep apage & vpage the same
  2. 20 KEY OFF
  3. 30 FOR I = 0 TO 3
  4. 40 SCREEN 0,0,I,I
  5. 50 CLS
  6. 60 LOCATE I*5+1, J* 10 +5
  7. 70 COLOR I+2, 0
  8. 80 PRINT "we're in screen ";I
  9. 90 INPUT X
  10. 100 NEXT
  11. 110 SCREEN 0,0,0,0
  12. 120 PRINT "now we'll try writing without changing screens"
  13. 130 INPUT X
  14. 140 FOR I = 0 TO 3
  15. 150 SCREEN 0,0,I,0
  16. 160 CLS
  17. 170 COLOR I+2, 0
  18. 180 FOR J = 1 TO 20
  19. 190 LOCATE J, 5+ I * 3
  20. 200 PRINT "more on screen ..................... ";I
  21. 210 NEXT
  22. 220 NEXT
  23. 230 SCREEN 0,0,0,0
  24. 240 PRINT "done writing, let's see what we have..."
  25. 250 INPUT X
  26. 260 FOR I = 1 TO 3
  27. 270 SCREEN 0,0,I,I
  28. 280 INPUT X
  29. 290 NEXT
  30.